home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / elect bill.p (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  183 lines
  1. 10 PRINT"[147]"
  2. 20 PRINT"ELECTRICITY USE IN YOUR HOME"
  3. 30 FORI=1TO3000:NEXTI
  4. 35 PRINT"[147]"
  5. 40 PRINT"INSTRUCTIONS"
  6. 50 PRINT:PRINT"THIS PROGRAM WILL ALLOW YOU TO ESTIMATE THE TOTAL ELECTRIC";
  7. 60 PRINT" ENERGY USED IN YOUR HOME IN ONE MONTH."
  8. 70 PRINT:PRINT"THE PROGRAM WILL LIST SEVEN DIFFERENT CATEGORIES IN THE HOME.";
  9. 80 PRINT" FOR EACH CATEGORY A NUMBER OF APPLIANCES WILL BE GIVEN."
  10. 90 PRINT"THE COMPUTER WILL SHOW YOU THE TYPE OF APPLIANCE AND THE AVERAGE ";
  11. 100 PRINT"AMOUNT OF ELECTRICAL ENERGY USED BY AN APPLIANCE PER MONTH IN KWH"
  12. 110 PRINT"SELECT THE";
  13. 120 PRINT"APPLIANCE BY TYPING Y[146]IF YOU USE AN AVERAGE AMOUNT,N[146]IF YOU DON'T";
  14. 130 PRINT" USE THE DEVICE,H[146]IF YOU USE THIS DEVICE A LOT,AND L [146]IF YOU USE";
  15. 140 PRINT"THIS DEVICE VERY LITTLE"
  16. 150 PRINT"THE CATEGORIES WILL BE KITCHEN,LIGHTING,MISCELLANIOUS,ELECTRON";
  17. 160 PRINT" DEVICES,LAUNDRY,COMFORT AND HEALTH,AND FOOD PRESERVATION"
  18. 170 PRINT:PRINT"WHEN READY TO PROCEED HIT ANY KEY"
  19. 180 GETA$:IFA$=""THEN 180
  20. 185 PRINT"[147]"
  21. 190 PRINT"REMEMBER TYPE Y IF YOU USE AN AVERAGE AMOUNT"
  22. 200 PRINT"TYPE N IF YOU DON'T USE THE APPLIANCE"
  23. 210 PRINT"TYPE H IF YOU USE THE APPLIANCE MORE THAN AN AVERAGE AMOUNT"
  24. 220 PRINT"TYPE L IF YOU USE THE APPLIANCE LESS THAN AN AVERAGE AMOUNT"
  25. 230 PRINT:PRINT
  26. 260 PRINT"IN THE CASE OF LIGHTING YOU WILL BE ASKED FOR THE NUMBER OF LIGHTS"
  27. 270 PRINT:PRINT"AFTER EACH ENTRY HIT THE RETURN KEY"
  28. 275 PRINT:PRINT:PRINT
  29. 280 PRINT"WHEN READY TO PROCEED HIT ANY KEY"
  30. 290 GETA$:IFA$=""THEN290
  31. 1000 DIMB$(21),A(21),C$(5),B(5),D$(11)
  32. 1010 DIMC(11),E$(6),D(6),F$(5),E(5)
  33. 1020 DIMG$(12),F(12),H$(4),G(4)
  34. 1100 T1=0
  35. 1200 PRINT"[147]"
  36. 1300 PRINT" ENERGY USE IN THE KITCHEN:21 POSSIBLE APPLIANCES"
  37. 1400 FORI=1TO21
  38. 1500 READB$(I),A(I)
  39. 1600 DATASTANDARD RANGE,100,SELFCLEANING OVEN,4,DISHWASHER,18,MICROWAVEOVEN,22
  40. 1610 DATAKETTLE,12,FRYPAN,16,BROILER,9,COFFEE MAKER,6,HOTPLATE,8,DEEP FRYER,7
  41. 1620 DATABARBECUE-GRILL,5,WAFFLE IRON,2,CARVING KNIFE,1,BLENDER,1
  42. 1630 DATACAN OPENER,1,HAND MIXER,2,TABLE MIXER,2,ROTISSERIE,2,TOASTER,10
  43. 1640 DATA FOOD PROCESSOR,2,CORN POPPER,2
  44. 1700 PRINT"APPLIANCE #";I;B$(I);" ";A(I);" KWH"
  45. 1800 INPUT"Y,N,H,L";A$
  46. 1900 IFA$="Y"THENGOTO2300
  47. 2000 IFA$="N"THENA(I)=0
  48. 2100 IFA$="H"THENA(I)=1.15*A(I)
  49. 2200 IFA$="L"THENA(I)=.85*A(I)
  50. 2300 T1=T1+A(I)
  51. 2400 NEXTI
  52. 2500 PRINT:PRINT"TOTAL ENERGY USE PER MONTH IN THE KITCHEN IS";T1;"KWH"
  53. 2600 PRINT"RECORD THIS VALUE.WHEN READY TO PROCEED HIT ANY KEY"
  54. 2700 GET A$:IFA$=""THEN 2700
  55. 3100 T2=0
  56. 3200 PRINT"[147]"
  57. 3300 PRINT"ENERGY USED IN LIGHTING"
  58. 3400 FORI=1TO5
  59. 3500 READC$(I),B(I)
  60. 3600 DATATABLE LAMPS,8,5-LIGHT FIXTURES,9,SINGLE CEILING FIXTURE,2
  61. 3610 DATA3-LIGHT CEILING FIXTURE,3,LONG FLUORESCENT BULB,7
  62. 3700 PRINT"TYPE OF LIGHT FIXTURE:"C$(I);" ";B(I);" KWH"
  63. 3800 INPUT"NUMBER OF FIXTURES";N
  64. 3900 B(I)=N*B(I)
  65. 4000 T2=T2+B(I)
  66. 4100 NEXTI
  67. 4200 PRINT"TOTAL ENERY USED IN LIGHTING PER MONTH IS";T2;"KWH"
  68. 4300 PRINT: PRINT"RECORD THIS VALUE.WHEN READY TO PROCEED HIT ANY KEY"
  69. 4400 GETA$:IFA$="" THEN4400
  70. 4500 T3=0
  71. 4600 PRINT"[147]"
  72. 4700 PRINT"MISCELLANEOUS ELECTRICAL APPLIANCES  11 POSSIBLE"
  73. 4800 FOR I=1TO11
  74. 4900 READD$(I),C(I)
  75. 5000 DATACLOCK,1,POWER SAW,1,POLISHER,1,LAWN MOWER,3,SEWING MACHINE,1
  76. 5010 DATAVACUUM CLEANER,4,HEDGE TRIMMER,1,CARHEATER,40,DRILL,1,FURNACE FAN,100
  77. 5020 DATAOIL BURNER,50
  78. 5100 PRINT"APPLIANCE#";I;":";D$(I);C(I);"KWH"
  79. 5200 INPUT"Y,N,H,L";A$
  80. 5300 IFA$="Y"THENGOTO5700
  81. 5400 IFA$="N"THENC(I)=0
  82. 5500 IFA$="H"THENC(I)=1.15*C(I)
  83. 5600 IFA$="L"THENC(I)=.85*C(I)
  84. 5700 T3=T3+C(I)
  85. 5800 NEXTI
  86. 5900 PRINT"TOTAL ENERGY USE PER MONTH FOR MISCELLANEOUS USES IS";T3;" KWH"
  87. 6000 PRINT"RECORD THIS VALUE.WHEN READY TO PROCEED HIT ANY KEY"
  88. 6100 GETA$:IFA$=""THEN6100
  89. 6200 T4=0
  90. 6300 PRINT"[147]"
  91. 6400 PRINT"ELECTRONIC DEVICES-6 POSSIBLE"
  92. 6500 FORI=1TO6
  93. 6600 READE$(I),D(I)
  94. 6700 DATATUBE RADIO(OLD),8,TRANSISTOR RADIO(NEWER),1,STEREO(TUBE),10
  95. 6710 DATASTEREO(TRANSISTOR),6,T.V.(B&W),30,T.V.(COLOUR),40
  96. 6800 PRINT"APPLIANCE#";I;";";E$(I);D(I);"KWH"
  97. 6900 INPUT"Y,N,H,L";A$
  98. 7000 IFA$="Y"THENGOTO7400
  99. 7100 IFA$="N"THEND(I)=0
  100. 7200 IFA$="H"THEND(I)=1.15*D(I)
  101. 7300 IFA$="L"THEND(I)=.85*D(I)
  102. 7400 T4=T4+D(I)
  103. 7500 NEXTI
  104. 7600 PRINT"TOTAL ENERGY USE PER MONTH FOR ELECTRONIC DEVICES IS";T4;"KWH"
  105. 7700 PRINT"RECORD THIS VALUE.WHEN READY TO PROCEED HIT ANY KEY."
  106. 7800 GETA$:IFA$=""THEN7800
  107. 7900 T5=0
  108. 8000 PRINT"[147]"
  109. 8100 PRINT"LAUNDRY-5 POSSIBLE"
  110. 8200 FORI=1TO5
  111. 8300 READF$(I),E(I)
  112. 8400 DATACLOTHES DRYER,80,AUTOMATIC WASHER,12,NON-AUTOMATIC WASHER,6
  113. 8410 DATAELECTRIC WATER HEATER,500,IRON,8
  114. 8500 PRINT"APPLIANCE#";I;":";F$(I);E(I);"KWH"
  115. 8600 INPUT"Y,N,H,L";A$
  116. 8700 IFA$="Y"THEN (null) TO9100
  117. 8800 IFA$="N"THENE(I)=0
  118. 8900 IFA$="H"THENE(I)=1.15*E(I)
  119. 9000 IFA$="L"THENE(I)=.85*E(I)
  120. 9100 T5=T5+E(I)
  121. 9200 NEXTI
  122. 9300 PRINT"TOTAL ENERGY USE PER MONTH IN THE LAUNDRY IS";T5;"KWH"
  123. 9400 PRINT"RECORD THIS VALUE.WHEN READY TO PROCEED HIT ANY KEY."
  124. 9500 GETA$:IFA$=""THEN9500
  125. 9600 T6=0
  126. 9700 PRINT"[147]"
  127. 9800 PRINT"COMFORT AND HEALTH 12 POSSIBLE"
  128. 9900 FORI=1TO12
  129. 10000 READG$(I),F(I)
  130. 10100 DATAAIR CONDITIONING,100,FAN,4,HAIR DRYER,3,HEAT LAMP,3
  131. 10110 DATAELECTRIC HEATER,100,HEATING PAD,1,HUMIDIFIER,10,SHAVER,1,SUN LAMP,1
  132. 10120 DATATOOTHBRUSH,1,DEHUMIDIFIER,15,BLANKET,10
  133. 10130 PRINT"APPLIANCE#";":";I;G$(I);F(I);"KWH"
  134. 10140 INPUT"Y,N,H,L";A$
  135. 10150 IFA$="Y"THENGOTO10190
  136. 10160 IFA$="N"THENF(I)=0
  137. 10170 IFA$="H"THENF(I)=1.15*F(I)
  138. 10180 IFA$="L"THENF(I)=.85*F(I)
  139. 10190 T6=T6+F(I)
  140. 10200 NEXTI
  141. 10300 PRINT"TOTAL MONTHLY USE FOR COMFORT AND HEALTH IS ";T6;"KWH"
  142. 10400 PRINT"RECORD THIS VALUE.WHEN READY TO PROCEED HIT ANY KEY
  143. 10500 [161]A$:[139]A$[178]""[167]10500
  144. 10600 T7[178]0
  145. 10700 [153]"LOAD"
  146. 10800 [153]"FOOD PRESERVATION 4 POSSIBLE"
  147. 10900 [129]I[178]1[164]4
  148. 11000 [135]H$(I),G(I)
  149. 11100 [131]15 CUBIC FOOT FREEZER,75,IF FREEZER FROST FREE,15,REFRIGERATOR,100
  150. 11110 [131] IF REFIGERATOR IS FROST FREE,50
  151. 11200 [153]"APPLIANCE#";":";I;H$(I);G(I);"KWH"
  152. 11300 [133]"Y,N,H,L";A$
  153. 11400 [139]A$[178]"Y"[167][137]11900
  154. 11500 [139]A$[178]"N"[167]G(I)[178]0
  155. 11600 [139]A$[178]"H"[167]G(I)[178]1.15[172]G(I)
  156. 11700 [139]A$[178]"L"[167]G(I)[178].85[172]G(I)
  157. 11900 T7[178]T7[170]G(I)
  158. 12000 [130]I
  159. 12100 [153]"TOTAL MONTHLY ENERGY USE FOR FOOD PRESERVATION IS";T7;"KWH"
  160. 12200 [153]"RECORD THIS VALUE.WHEN READY TO SEE A SUMMARY HIT ANY KEY."
  161. 12300 [161]A$:[139]A$[178]""[167]12300
  162. 12310 [153]"LOAD"
  163. 12320 TT[178]T1[170]T2[170]T3[170]T4[170]T5[170]T6[170]T7
  164. 12400 [153]"THE TOTAL MONTHLY ELECTRICAL ENERGY USE IN YOUR HOME IS";TT;"KWH"
  165. 12500 A[178]T1[173]TT[172]100
  166. 12510 B[178]T2[173]TT[172]100
  167. 12520 C[178]T3[173]TT[172]100
  168. 12530 D[178]T4[173]TT[172]100
  169. 12540 E[178]T5[173]TT[172]100
  170. 12560 F[178]T6[173]TT[172]100
  171. 12570 G[178]T7[173]TT[172]100
  172. 12700 [153]:[153]"KITCHEN";T1;"KWH";A;"%"
  173. 12800 [153]:[153]"LIGHTING";T2;"KWH";B;"%"
  174. 12900 [153]:[153]"MISCELLANUOUS";T3;"KWH";C;"%"
  175. 13000 [153]:[153]"ELECTRONICS";T4;"KWH";D;"%"
  176. 13100 [153]:[153]"LAUNDRY";T5;"KWH";E;"%"
  177. 13200 [153]:[153]"COMFORT AND HEALTH";T6;"KWH";F;"%"
  178. 13300 [153]:[153]"FOOD PRESERVATION";T7;"KWH";G;"%"
  179. 13400 [153]:[153]"AT 3 CENTS PER KWH YOUR";
  180. 13450 [153]" HYDRO BILL FOR ONE MONTH SHOULD BE ABOUT";
  181. 13500 [153] "$";.03[172]TT
  182. 13600 [128]
  183.